home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / kewlpo1a / modmain.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-21  |  2.2 KB  |  80 lines
  1. Attribute VB_Name = "modMain"
  2. Type KeyFile
  3.     FileType As String * 28
  4.     Credits As String * 27
  5.     Player1Key(1)  As String * 15
  6.     Player1KeyTag(1)  As Integer
  7.     Player2Key(1) As String * 15
  8.     Player2KeyTag(1) As Integer
  9. End Type
  10. Public KeyCode1(1) As Integer
  11. Public KeyStr1(1) As String
  12. Public KeyCode2(1) As Integer
  13. Public KeyStr2(1) As String
  14. Public MyName As String
  15. Public mychrs(1 To 24) As Integer
  16. Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  17.  
  18. Sub Main()
  19.     On Error GoTo errdo
  20.     Dim fn As Integer
  21.     Dim SaveKeys As KeyFile
  22.     mychrs(1) = 65
  23.     mychrs(2) = 108
  24.     mychrs(3) = 101
  25.     mychrs(4) = 120
  26.     mychrs(5) = 97
  27.     mychrs(6) = 110
  28.     mychrs(7) = 100
  29.     mychrs(8) = 101
  30.     mychrs(9) = 114
  31.     mychrs(10) = 32
  32.     mychrs(11) = 67
  33.     mychrs(12) = 104
  34.     mychrs(13) = 105
  35.     mychrs(14) = 97
  36.     mychrs(15) = 32
  37.     mychrs(16) = 89
  38.     mychrs(17) = 97
  39.     mychrs(18) = 110
  40.     mychrs(19) = 32
  41.     mychrs(20) = 83
  42.     mychrs(21) = 104
  43.     mychrs(22) = 101
  44.     mychrs(23) = 110
  45.     mychrs(24) = 103
  46.     
  47.     For i = 1 To 24
  48.     MyName = MyName + Chr$(mychrs(i))
  49.     Next i
  50.     
  51.     fn = FreeFile
  52.     Open "keys.conf" For Random As #fn Len = Len(SaveKeys)
  53.         Get #fn, 1, SaveKeys
  54.         If SaveKeys.FileType <> "Pong Keyboard Configurations" Then GoTo errdo
  55.         If SaveKeys.Credits <> "By " & MyName Then GoTo errdo
  56.         For i = 0 To 1
  57.             KeyStr1(i) = RTrim(SaveKeys.Player1Key(i))
  58.             KeyCode1(i) = SaveKeys.Player1KeyTag(i)
  59.             KeyStr2(i) = RTrim(SaveKeys.Player2Key(i))
  60.             KeyCode2(i) = SaveKeys.Player2KeyTag(i)
  61.         Next i
  62.         MsgBox "Configurations loaded successfully!", vbExclamation, "Successful!"
  63.     Close
  64.     GoTo okgo
  65. errdo:
  66.     MsgBox "Unable to load keyboard settings, using defaults...", vbExclamation
  67.         KeyStr1(0) = "<"
  68.         KeyStr1(1) = ">"
  69.         KeyCode1(0) = 188
  70.         KeyCode1(1) = 190
  71.         KeyStr2(0) = "Left Arrow"
  72.         KeyStr2(1) = "Right Arrow"
  73.         KeyCode2(0) = 37
  74.         KeyCode2(1) = 39
  75. okgo:
  76.  
  77.     frmPong.Show
  78. End Sub
  79.  
  80.